unit uImpostos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMTBcd, DB, DBClient, Provider, SqlExpr, StdCtrls, Buttons,
  ExtCtrls, MMJPanel, Grids, DBGrids, JvExDBGrids, JvDBGrid;

type
  TfImpostos = class(TForm)
    sImp: TSQLDataSet;
    dImp: TDataSetProvider;
    dsImp: TClientDataSet;
    dsrcImp: TDataSource;
    SQLDataSet2: TSQLDataSet;
    DataSetProvider2: TDataSetProvider;
    ds3: TClientDataSet;
    ds4: TDataSource;
    JvDBGrid1: TJvDBGrid;
    MMJPanel1: TMMJPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    sImpANO_MES: TStringField;
    dsImpANO_MES: TStringField;
    sImpDESCRICAO: TStringField;
    sImpPRAZO: TIntegerField;
    sImpFERIADO: TIntegerField;
    dsImpDESCRICAO: TStringField;
    dsImpPRAZO: TIntegerField;
    dsImpFERIADO: TIntegerField;
    sImpID_IMPOSTO: TIntegerField;
    dsImpID_IMPOSTO: TIntegerField;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fImpostos: TfImpostos;

implementation

uses UDM, uCadImp;

{$R *.dfm}

procedure TfImpostos.BitBtn1Click(Sender: TObject);
begin
  vImposto := dsImpID_IMPOSTO.AsInteger;
  fcadImp.ShowModal;
end;

end.
